00100		SUBROUTINE LINES(I)
00200
00300		COMMON/PLT/JX,JY,JPL,PLT,REV,RINV,IROT,RLR,RUD,CONST
00350		1 ,JREV,JINV,KA,KB,KC,KD,RTO,JA,JB,JAR,JBR,A
00400		
00410		JA=JA+JX
00420		JB=JB+JY
00450	C  IF IROT.GE.0 ROTATE 90 DEG. TO LEFT
00500		M=JA
00600		N=JB
00605		IF(PLT)GO TO 1
00610		IF(I.GT.0)GO TO 6
00620		MX=JAR+JX
00630		NY=JBR+JY
00632		JAR=0
00634		JBR=0
00640		IF(IROT.GE.0)CALL EXCH(MX,NY)
00800	6	M=M-JAR
00900		N=N-JBR
01000		IF(IROT.GE.0)CALL EXCH(M,N)
01100		IF(I.GT.0)GO TO 2
01110		CALL ALINE(M,N,MX,NY)
01120		RETURN
01200	2	TYPE 20,M,N,JX,JY
01250	20	FORMAT(4I6)
01300		IF(I.EQ.3)GO TO 3
01400		CALL RVECT(M,N)
01500	5	JAR=JA
01600		JBR=JB
01700		RETURN
01800	3	CALL RIVECT(M,N)
01900		GO TO 5
01950	
02000	1	IF(IROT.GE.0)CALL EXCH(M,N)
02100	4	TYPE 20,M,N,JX,JY
02300		CALL PLOT(M,N,I)
02400		END
02500	
02600		SUBROUTINE EXCH(J,K)
02700		I=J
02800		J=K
02900		K=I
03000		END
03100	
03200		SUBROUTINE JZERO
03300		COMMON/PLT/JX,JY,JPL,PLT,REV,RINV,IROT,RLR,RUD,CONST
03400		1 ,JREV,JINV,KA,KB,KC,KD,RTO,JA,JB,JAR,JBR,A
03500		JAR=0
03600		JBR=0
03700		END